desc:MIDI Channel Pan to JS Pan 16x

@init

PAN1=1;
PAN2=1;
PAN3=1;
PAN4=1;
PAN5=1;
PAN6=1;
PAN7=1;
PAN8=1;
PAN9=1;
PAN10=1;
PAN11=1;
PAN12=1;
PAN13=1;
PAN14=1;
PAN15=1;
PAN16=1; 

@sample

while  (midirecv(offset,IN1,IN2,IN3))
(
  (IN1==176)&&(IN2==10) ?
  PAN1=IN3/63.5 ; 
  
  (IN1==177)&&(IN2==10) ?
   PAN2=IN3/63.5 ;
   
  (IN1==178)&&(IN2==10) ?
   PAN3=IN3/63.5 ;
   
  (IN1==179)&&(IN2==10) ?
   PAN4=IN3/63.5 ;

  (IN1==178)&&(IN2==10) ?
   PAN5=IN3/63.5 ;
   
  (IN1==180)&&(IN2==10) ?
   PAN6=IN3/63.5 ;
   
  (IN1==181)&&(IN2==10) ?
   PAN7=IN3/63.5 ;
   
  (IN1==182)&&(IN2==10) ?
   PAN8=IN3/63.5 ;
   
  (IN1==183)&&(IN2==10) ?
   PAN9=IN3/63.5 ;
   
  (IN1==184)&&(IN2==10) ?
   PAN10=IN3/63.5 ;
   
  (IN1==184)&&(IN2==10) ?
   PAN11=IN3/63.5 ;
   
  (IN1==186)&&(IN2==10) ?
   PAN12=IN3/63.5 ;
   
  (IN1==187)&&(IN2==10) ?
   PAN13=IN3/63.5 ;
   
  (IN1==188)&&(IN2==10) ?
   PAN14=IN3/63.5 ;
   
  (IN1==189)&&(IN2==10) ?
   PAN15=IN3/63.5 ;
   
  (IN1==190)&&(IN2==10) ?
   PAN16=IN3/63.5 ;
);  


spl0*=(2-PAN1);
spl1*=PAN1;

spl2*=(2-PAN2);
spl3*=PAN2;

spl4*=(2-PAN3);
spl5*=PAN3;

spl6*=(2-PAN4);
spl7*=PAN4;

spl8*=(2-PAN5);
spl9*=PAN5;

spl10*=(2-PAN6);
spl11*=PAN6;

spl12*=(2-PAN7);
spl13*=PAN7;

spl14*=(2-PAN8);
spl15*=PAN8;

spl16*=(2-PAN9);
spl17*=PAN9;

spl18*=(2-PAN10);
spl19*=PAN10;

spl20*=(2-PAN11);
spl21*=PAN11;

spl22*=(2-PAN12);
spl23*=PAN12;

spl24*=(2-PAN13);
spl25*=PAN13;

spl26*=(2-PAN14);
spl27*=PAN14;

spl28*=(2-PAN15);
spl29*=PAN15;

spl30*=(2-PAN16);
spl31*=PAN16;